home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI189.ASC < prev    next >
Text File  |  1991-09-11  |  5KB  |  199 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO DATABASE TOOLBOX                     NUMBER : 189
  10.   VERSION : 1.00x
  11.        OS : MS-DOS, CP/M-86, CP/M-80
  12.      DATE : July 14, 1986                                PAGE : 1/3
  13.     TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
  14.  
  15.  
  16.  
  17.  
  18.   This handout describes the code modifications that upgrade the
  19.   Turbo Database Toolbox to version 1.01. Turbo Database Toolbox is
  20.   provided in source code (except for GINST). You can make these
  21.   changes directly to the source code.
  22.  
  23.   It has been discovered that the serial numbers on Turbo Database
  24.   Toolbox diskettes are not completely reliable indicators of
  25.   whether these fixes have been incorporated. To be safe, take a
  26.   few minutes to review your copy of the Turbo Database Toolbox and
  27.   determine which, if any, of the following fixes are necessary.
  28.  
  29.   The Turbo Database Toolbox has been released as Version 1.00,
  30.   Version 1.01, and Version 3.00. Generally, the changes described
  31.   below will update Version 1.00 to Version 1.01. Again, look your
  32.   Version 1.01 over and verify that these fixes have been
  33.   implemented.
  34.  
  35.   If you have Version 3.00 of Turbo Database Toolbox, the changes
  36.   to ACCESS.BOX (or ACCESS3.BOX) have been incorporated along with
  37.   other changes relating to Turbo Pascal, Version 3.0). However,
  38.   you should look at the changes below that pertain to other files
  39.   in the Turbo Database Toolbox.
  40.  
  41.  
  42.   A. GENERAL CHANGES
  43.  
  44.        If you make the changes listed below to Version 1.00 of  the
  45.        Turbo Database Toolbox, change the headers of ACCESS.BOX,
  46.        GETKEY.BOX, ADDKEY.BOX, and DELKEY.BOX to say:
  47.  
  48.        "TURBO-Access Version 1.01" and "Copyright (C) 1984, 85."
  49.  
  50.   B. CHANGES TO ACCESS.BOX
  51.  
  52.        Add lines 1) and 2) in the following two places:
  53.  
  54.      Immediately after the "Assign(...)"  in procedure MakeFile;
  55.      Immediately after the "Assign(...)"  in procedure OpenFile:
  56.  
  57.      1) IOstatus:=IOresult;
  58.      2) TaIOcheck(DatF, 0);
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO DATABASE TOOLBOX                     NUMBER : 189
  76.   VERSION : 1.00x
  77.        OS : MS-DOS, CP/M-86, CP/M-80
  78.      DATE : July 14, 1986                                PAGE : 2/3
  79.     TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
  80.  
  81.  
  82.  
  83.  
  84.        Add  the  following  line immediately after  "PutRec(...)"
  85.        in     procedure CloseIndex:
  86.  
  87.        Updated := false;
  88.  
  89.   Note:     Without the above change, an index file can become
  90.             corrupted if you close an index file, and then open
  91.             another while in the middle of your program.
  92.  
  93.   C. CHANGES TO ADDKEY.BOX
  94.  
  95.        In the very last three lines of the file, change:
  96.  
  97.      FROM:         end;
  98.                  end;
  99.                end;
  100.  
  101.      TO:           end;
  102.                    PP := 0;
  103.                  end;
  104.                end;
  105.  
  106.   D. CHANGES TO DELKEY.BOX
  107.  
  108.        In the very last four lines of the file, change:
  109.  
  110.      FROM:           end;
  111.                    end;
  112.                  end;
  113.                end;
  114.  
  115.      TO:             end;
  116.                    end;
  117.                    PP := 0;
  118.                  end;
  119.                end;
  120.  
  121.   E. CHANGES TO SORT.BOX
  122.  
  123.        About 17 lines after the main BEGIN of procedure  QuickSort,
  124.        change:
  125.  
  126.    FROM:     M := (I+J) Div 2;
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.   PRODUCT : TURBO DATABASE TOOLBOX                     NUMBER : 189
  142.   VERSION : 1.00x
  143.        OS : MS-DOS, CP/M-86, CP/M-80
  144.      DATE : July 14, 1986                                PAGE : 3/3
  145.     TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
  146.  
  147.  
  148.  
  149.  
  150.      TO:       M := (I+J) Shr 1;
  151.  
  152.   Note:     This is not just for efficiency, the old "Div 2"
  153.             version can cause an arithmetic run-time error when
  154.             sorting large files.
  155.  
  156.   F. CHANGES TO SORT1.PAS AND SORT2.PAS
  157.  
  158.        The TurboSort function should not be used as a parameter to
  159.        a Write or WriteLn statement, as this may result in  an
  160.        illegal recursive call to Read or Write. Make the following
  161.        changes to the sample programs SORT1.PAS and SORT2.PAS
  162.  
  163.        Add the following variable declaration to the VAR section of
  164.        both main programs (pages 71, 75, 78, and 82 of the Turbo
  165.        Database Toolbox manual).
  166.  
  167.        x : integer;
  168.  
  169.        Throughout SORT1.PAS and SORT2.PAS, replace each occurrence
  170.        of     the following line:
  171.  
  172.        WriteLn(TurboSort(SizeOf(CustRec)));
  173.  
  174.        with the following TWO lines:
  175.  
  176.        x:=TurboSort(SizeOf(CustRec));
  177.        WriteLn(x);
  178.  
  179.        If this is not fixed in your copy of the Turbo  Database
  180.        Toolbox, there will be one occurrence of this in SORT1.PAS,
  181.        and two in SORT2.PAS. See also  pages 74, 76, 78 (two
  182.        occurrences) of the Turbo Database Toolbox Reference Manual.
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.